home *** CD-ROM | disk | FTP | other *** search
- object SearchDirEntryForm: TSearchDirEntryForm
- Tag = 99
- Left = 217
- Top = 338
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Search Directory'
- ClientHeight = 414
- ClientWidth = 534
- Color = clBtnFace
- Constraints.MinHeight = 439
- Constraints.MinWidth = 398
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- PrintScale = poNone
- Scaled = False
- OnClose = FormClose
- OnShow = FormShow
- DesignSize = (
- 534
- 414)
- PixelsPerInch = 96
- TextHeight = 13
- object ScoreLabel: TLabel
- Left = 404
- Top = 125
- Width = 31
- Height = 13
- Hint =
- 'Points to be added to resulting search score for files that matc' +
- 'h.'
- Caption = 'Score:'
- end
- object InfoLabel: TLabel
- Left = 3
- Top = 6
- Width = 519
- Height = 69
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Caption = 'Type in the values and click Ok.'
- WordWrap = True
- ExplicitWidth = 504
- end
- object ButtonFolderBrowse: TSpeedButton
- Left = 500
- Top = 82
- Width = 26
- Height = 25
- Hint = 'Browse for File/Folder'
- Anchors = [akLeft, akTop, akRight]
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000012000000120000000100
- 040000000000D800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888880000008888888888888888880000008888888888888888880000008000
- 0000000088888800000080033333333308888800000080B03333333330888800
- 000080FB0333333333088800000080BFB033333333308800000080FBFB000000
- 00000800000080BFBFBFBFB088888800000080FBFBFBFBF088888800000080BF
- B000000088888800000088000888888880008800000088888888888888008800
- 0000888888888088808088000000888888888800088888000000888888888888
- 888888000000888888888888888888000000}
- OnClick = ButtonFolderBrowseClick
- end
- object Label1: TLabel
- Left = 3
- Top = 365
- Width = 318
- Height = 41
- Anchors = [akLeft, akBottom]
- AutoSize = False
- Caption =
- 'Optional Modifier keywords (spaces separate)'#13#10' Example: mydocs'#13 +
- #10' Then search with +mydocs to restrict searching to this direct' +
- 'ory.'
- end
- object LabelNumberEdit: TLabel
- Left = 132
- Top = 126
- Width = 214
- Height = 13
- Caption = 'Subdirectory Search Depth (0 for no recurse):'
- end
- object Label2: TLabel
- Left = 3
- Top = 153
- Width = 469
- Height = 13
- Caption =
- 'Exclude subdirectories whose full path contains any of the follo' +
- 'wing strings (separate with newlines):'
- end
- object EntryTextLabel: TLabel
- Left = 4
- Top = 108
- Width = 44
- Height = 13
- Caption = 'Entry text'
- end
- object SpeedButton1: TSpeedButton
- Left = 495
- Top = 169
- Width = 26
- Height = 25
- Hint = 'Browse for File/Folder'
- Anchors = [akTop, akRight]
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000012000000120000000100
- 040000000000D800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888880000008888888888888888880000008888888888888888880000008000
- 0000000088888800000080033333333308888800000080B03333333330888800
- 000080FB0333333333088800000080BFB033333333308800000080FBFB000000
- 00000800000080BFBFBFBFB088888800000080FBFBFBFBF088888800000080BF
- B000000088888800000088000888888880008800000088888888888888008800
- 0000888888888088808088000000888888888800088888000000888888888888
- 888888000000888888888888888888000000}
- OnClick = SpeedButton1Click
- ExplicitLeft = 479
- end
- object Label3: TLabel
- Left = 3
- Top = 290
- Width = 500
- Height = 42
- Anchors = [akLeft, akRight, akBottom]
- AutoSize = False
- Caption =
- 'Optional file extension restrictions (separate with semicolons a' +
- 'nd no dots, e.g.: exe;txt;doc). If blank, all file extensions w' +
- 'ill be searched, otherwise only those specified. Start list wit' +
- 'h minus to exclude all specified (e.g.: -bak;tmp).'
- WordWrap = True
- end
- object TextEdit: TEdit
- Left = 2
- Top = 85
- Width = 492
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- end
- object ScoreEdit: TEdit
- Left = 437
- Top = 122
- Width = 73
- Height = 21
- Hint =
- 'Points to be added to resulting search score for files that matc' +
- 'h.'
- TabOrder = 1
- end
- object BitBtn1: TBitBtn
- Left = 450
- Top = 376
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = '&Ok'
- TabOrder = 4
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 370
- Top = 376
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = '&Cancel'
- TabOrder = 3
- Kind = bkCancel
- end
- object EditModifierKeywords: TEdit
- Left = 2
- Top = 343
- Width = 525
- Height = 21
- Anchors = [akLeft, akRight, akBottom]
- TabOrder = 2
- end
- object NxNumberEdit: TNxNumberEdit
- Left = 351
- Top = 122
- Width = 41
- Height = 21
- Hint =
- 'Set to -1 to search all subdirectories infinitely deep; set to 0' +
- ' to not search any subdirectories.'
- AutoSize = False
- PreviewBorder = False
- TabOrder = 5
- Text = '-1'
- Max = 999.000000000000000000
- Min = -1.000000000000000000
- Options = [eoAllowSigns]
- Precision = 0
- Value = -1.000000000000000000
- end
- object ExcludeMemo: TMemo
- Left = 2
- Top = 169
- Width = 487
- Height = 80
- Hint =
- 'Separate strings with newlines, use full paths or just partial p' +
- 'aths.'
- Anchors = [akLeft, akTop, akRight, akBottom]
- ScrollBars = ssVertical
- TabOrder = 6
- WordWrap = False
- end
- object EditFileExtensionRestrictions: TEdit
- Left = 2
- Top = 264
- Width = 525
- Height = 21
- Anchors = [akLeft, akRight, akBottom]
- TabOrder = 7
- end
- object DropFileTargetAlias: TDropFileTarget
- DragTypes = [dtCopy, dtLink]
- OnDrop = DropFileTargetAliasDrop
- Target = ExcludeMemo
- OptimizedMove = True
- Left = 32
- Top = 352
- end
- end
-